Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/SHARED.DIR/03075_Script_DELAY HANDLERS

Text File | 1996-04-01 | 649b | 24 lines

-- -----------------------------------------------------------
-- Handler delayAfterOurTimes performs a delay of one second.

on delayAfterOurTimes
  wait 1
end

-- -----------------------------------------------------------
-- Handler delayAfterInventionQT performs a delay of one second.

on delayAfterInventionQT
  wait 1
end

-- -----------------------------------------------------------
-- Handler wait performs a delay of the given number of
-- seconds.

on wait numSeconds
  put the ticks + (numSeconds*60) into endTicks
  repeat while (not (the mouseDown)) and (the ticks < endTicks)
    updateStage
  end repeat
end